home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.mfindlv < prev    next >
Encoding:
Text File  |  2000-03-14  |  2.6 KB  |  122 lines
  1. G4C
  2. ; $VER: func.mfindlv Rev.013 Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 500 450 "Multifind: Gefundene Einträge"
  4. WinType 11110000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. VarPath HTMLEXT
  8.  
  9. xOnLoad
  10.     setvar aktsstr "Suche: "
  11.     appvar aktsstr $*suchstr
  12.     Update #This 44 $aktsstr
  13.     GuiOpen #This
  14.     LVUSE #This 1
  15.     SetVar resfile "t:htmlext/find.list2"
  16.     LVChange "t:htmlext/find.list2"
  17.     xOnClose
  18.     GuiQuit #This
  19.  
  20. xOnQuit
  21.     FailAt 21
  22.     CLI 'delete t:htmlext/find.list2'
  23.  
  24. ;Globale Gadgets
  25. xListview 5 5 490 405 "" "resfiles" "t:htmlext/find.list2" 0 "MULTI"
  26.     GadID 1
  27.     GadFont sgiscreen.font 13 000
  28.  
  29.  
  30. XBUTTON 5 410 20 18 "A"
  31.     GadFont xHelvetica.font 11 000
  32.     LVUSE #This 1
  33.     LVMulti ALL
  34.     LVMulti Show
  35.  
  36. XBUTTON 25 410 20 18 "N"
  37.     GadFont xHelvetica.font 11 000
  38.     LVUSE #This 1
  39.     LVMulti NONE
  40.     LVMulti Show
  41.  
  42.  
  43. XBUTTON 105 410 100 18 "Aus Liste entf."
  44.     GadFont xHelvetica.font 11 000
  45.     LVUSE #This 1
  46.     LVMulti First
  47.     while $$lv.line > ""
  48.         lvdel -1
  49.         LVMulti Show
  50.         LVMulti First
  51.     EndWhile
  52.  
  53.  
  54. XBUTTON 205 410 100 18 "Sortieren"
  55.     GadFont xHelvetica.font 11 000
  56.     GadHelp "Variabelnliste sortieren ..."
  57.     LVUse #This 1
  58.     LVSort ASC
  59.  
  60. Text 305 410 190 18 "" 255 BOX
  61.     GadID 44
  62.     GadFont xHelvetica.font 11 010
  63.  
  64. ;===============================================
  65. XBUTTON 5 430 100 18 "Multiview"
  66.     GadFont xHelvetica.font 11 000
  67.     LVUSE #This 1
  68.     LVMulti First
  69.     while $$lv.line > ""
  70.         CLI 'sys:utilities/multiview $$LV.REC PUBSCREEN=$*SCREEN'
  71.         LVMulti OFF
  72.         LVMulti Show
  73.         LVMulti First
  74.     EndWhile
  75.  
  76. XBUTTON 105 430 100 18 "Bearbeiten"
  77.     GadFont xHelvetica.font 11 000
  78.     LVUSE #This 1
  79.     LVMulti First
  80.     while $$lv.line > ""
  81.         CLI 'rx $*EDITOR OPENNEW $$LV.REC'
  82.         LVMulti OFF
  83.         LVMulti Show
  84.         LVMulti First
  85.     EndWhile
  86.  
  87. XBUTTON 205 430 100 18 "Bearb. & Suchen"
  88.     GadFont xHelvetica.font 11 000
  89.     LVUSE #This 1
  90.     LVMulti First
  91.     while $$lv.line > ""
  92.         CLI 'rx $*EDITOR OPENNEW $$LV.REC'
  93.         CLI 'rx $*EDITOR FIND "$*suchstr"'
  94.         LVMulti OFF
  95.         LVMulti Show
  96.         LVMulti First
  97.     EndWhile
  98.  
  99. XBUTTON 305 430 100 18 "Löschen"
  100.     GadFont xHelvetica.font 11 000
  101.     EZREQ "Wollen Sie die selektierten Daten wirklich löschen?" "Ja, weiter|Abbrechen" sabfr
  102.     if $sabfr = 1
  103.         LVUSE #This 1
  104.         LVMulti First
  105.         Update "Infobar" 1 "Lösche alle selektierten Einträge ..."
  106.         while $$lv.line > ""
  107.             Update "Infobar" 1 "Lösche $$LV.REC ..."
  108.             FailAt 21
  109.             CLI 'delete $$LV.REC FORCE'
  110.             LVDel -1
  111.             LVMulti Show
  112.             LVMulti First
  113.         EndWhile
  114.         Update "Infobar" 1 "Lösch Prozess erfolgreich beendet."
  115.     elseif $sabfr = 0
  116.         Update "Infobar" 1 "Lösch Prozess durch Benutzer abgebrochen."
  117.     endif
  118.  
  119. XBUTTON 405 430 90 18 "Schliessen"
  120.     GadFont xHelvetica.font 11 010
  121.     GuiQuit #This
  122.